home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Sample Code / Sample Code Update 01⁄96 / MenuScripter 3.1 / MenuScripter / MenuScripter.rsrc / SCPT_4261 < prev    next >
Encoding:
Text File  |  1995-11-20  |  335 b   |  10 lines
  1. tell application "MenuScripter"
  2. copy selection of window 1 to usersel
  3. copy style of usersel to selstyle
  4. if on styles of selstyle contains outline then
  5. set x to {class:text style info, on styles:{}, off styles:{outline}}
  6. else
  7. set x to {class:text style info, on styles:{outline}, off styles:{}}
  8. end if
  9. set style of usersel to x
  10. end tell